home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Softwarová Záchrana 3
/
Softwarova-zachrana-3.bin
/
Xteq X-Setup
/
xqdcXSP-Setup-EN.exe
/
{app}
/
plugins
/
XQ IE Default URLs.xpl
< prev
next >
Wrap
Text File
|
2003-11-19
|
2KB
|
79 lines
"FILE"="Xteq Systems X-Setup Plugin 3.1"
"TYPE"="1"
"COUNT"="4"
"UIPATH"="Internet\Internet Explorer\URL Handling"
"NAME"="System URLs"
"VERSION"="1.23"
"LANGUAGE"="VBScript"
"TEXT 1"="Blank Page"
"TEXT 2"="Navi. Canceled"
"TEXT 3"="Navi. Failed"
"TEXT 4"="Offline Failed"
"DESCRIPTION 1"="Blank Page: The URL if a blank page should be displayed (default: "res://mshtml.dll/blank.htm")."
"DESCRIPTION 2"="Navigation Canceled: The URL if naviagtion has been cancelled (default: "res://shdocvw.dll/navcancl.htm")."
"DESCRIPTION 3"="Navigation Failed: The URL if IE couldn't complete a naviagation request ("res://shdocvw.dll/navcancl.htm")."
"DESCRIPTION 4"="Offline Failed: The URL to be used if the requested URL couldn't be loaded in offline-mode ("res://shdocvw.dll/offcancl.htm")."
"DESCRIPTION 5"=""
"AUTHOR"="Xteq Systems"
"CONTACTURL"="http://www.xteq.com"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"=" "
sP="HKLM\Software\Microsoft\Internet Explorer\AboutURLs\"
vB="blank"
vNC="NavigationCanceled"
vNF="NavigationFailure"
vOI="OfflineInformation"
Sub Plugin_Initialize
if RegPathExists(sp) then
s=RegReadValue(sp&vb)
SetUIElement 1,s
s=RegReadValue(sp&vnc)
SetUIElement 2,s
s=RegReadValue(sp&vnf)
SetUIElement 3,s
s=RegReadValue(sp&voi)
SetUIElement 4,s
else
Disable
end if
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
bOkay=true
for i=1 to 4
s=GetUIElement(i)
if len(s)<=0 then
Call MsgError("Element #" & i & ": Please enter a valid URL or, to use the default values, copy the URLs from the description box.")
bOkay=false
end if
next
if bOkay=true then
s=GetUIElement(1)
Call RegWriteValue(sp&vb,s,1)
s=GetUIElement(2)
Call RegWriteValue(sp&vnc,s,1)
s=GetUIElement(3)
Call RegWriteValue(sp&vnf,s,1)
s=GetUIElement(4)
Call RegWriteValue(sp&voi,s,1)
end if
End Sub
Sub Plugin_Terminate
End Sub